home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 21 / cdromtoday-21.iso / mac / Multimedia Bird Book / PROFILE.DIR / 00155_Script_155 < prev    next >
Text File  |  1995-06-23  |  770b  |  22 lines
  1. on mouseDown
  2.   global localDir,magazines
  3.   cursor 4
  4.   sound stop 1
  5.   sound stop 2
  6.   set tmpName = char 1 to ( (length(the movieName))-4) of the movieName
  7.   set currArticle = splitNums(tmpName)
  8.   set currBirdMonth = getAt(currArticle,1)
  9.   set currBirdArticle = getAt(currArticle,2)
  10.   
  11.   if (currBirdArticle) = (count(getAt(magazines, currBirdMonth))) then
  12.     -- We are at the last article -> go to Theme article
  13.     set tmpGo = "THE"&string(currBirdMonth)&".dir"
  14.     go "start" of movie localDir&tmpGo
  15.   else
  16.     -- We are somewhere in the middle 
  17.     -- Don't forget to skip the explode transition and Everlys speech
  18.     set tmpGo = string(currBirdMonth)&"_"&string( (currBirdMonth) +1 )&".dir"
  19.     go "main" of movie localDir&tmpGo
  20.   end if
  21.   
  22. end